library(shiny)

shinyUI(
  fluidPage(
  titlePanel(title = h4("Demonstration of renderPlot() -a histogram", align = "center")),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "vairable",label = "1.Select the varible from the iris dataset",
                  choices= c("Sepal.Length" = 1,"Sepal.Width" = 2,"Petal.Length" = 3,"Petal.Width" = 4),
                  selected = "Sepal.Length"),
      sliderInput(inputId = "BINs",label = "2.Select the number of BINs for histogram",
                  min = 5,
                  max = 25,
                  value = 15),
      radioButtons(inputId = "xxx", label = "3. Chose the bar color", 
                   choices = c("Red","Orange","Yellow","Blue"),
                   selected = "Blue"),
    ),
    mainPanel(
      plotOutput("myhist")
    )
  )
)
)
